home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / pdrd2.zip / RD.ZIP / RD_DEMO1.PRG < prev    next >
Text File  |  1993-01-11  |  1KB  |  40 lines
  1. /*
  2.     RD_DEMO1.PRG
  3. */
  4.  
  5. #include "read.ch"
  6.  
  7. //---------
  8. func main()
  9. local getlist[0]
  10. local cShort := "Short string"
  11. local cLong := "This is a very long string.  It is '@S PICTUREd'.  This is the last of three sentences."
  12. local nNumber := 9
  13. local lLogical := .t.
  14. local dDate := date()
  15. local aArray := { "Frankie", "Library" }
  16. local nT := 10, nL := 10, nB := 18, nR := 50
  17. local cColor := setcolor( if( iscolor(), "W+/BG, GR+/R,,, N/R", nil ) )
  18. local aScn, aScn2
  19.  
  20. cls
  21. aScn = ADbox( nT, nL, nB, nR )
  22. aScn2 = ADmessage( { "Study Keys.rd to get acquainted with the active keys and mouse spots." },;
  23. @nT+1, nL+2 say "Short String" adget cShort
  24. @nT+2, nL+2 say "Long String " adget cLong picture "@S24"
  25. @nT+3, nL+2 say "Numeric     " adget nNumber
  26. @nT+4, nL+2 say "Logical     " adget lLogical
  27. @nT+5, nL+2 say "Date        " adget dDate
  28. @nT+6, nL+2 say "Array Elem1 " adget aArray[1]
  29. @nT+7, nL+2 say "Array Elem2 " adget aArray[2]
  30. ADread( getlist )
  31. ADrestscn( aScn2 )
  32. ADrestscn( aScn )
  33. setcolor( cColor )
  34. return nil
  35.  
  36.  
  37.  
  38.  
  39.  
  40.